Loadstar 27/027.d81/flower power

Commodore BASIC | 1986-01-01 | 1.1 KB | 30 lines

1 rem flower power
5 poke53281,15:poke53280,5:printchr$(142)
10 print"[147][144]  c= flower power - bob & david snader":forj=1to20:print:next
20 dima(64):v=53248:pokev+23,0:pokev+29,0
30 forl=12288to12799:pokel,0:next
40 fort=0to29:readp,b:pokev+p,b:next
50 fort=0to7:poke2040+t,192+t:next
60 forq=0to63:readn:a(q)=n:next
70 fort=0to7:forq=63to0step-1:l=l-1:pokel,a(q):ford=0to40:next:next:next
80 data 000,220,001,140,002,095,003,155
81 data 004,170,005,145,006,120,007,140
82 data 008,195,009,150,010,245,011,155
83 data 012,070,013,145,014,145,015,150
84 data 021,255,028,255,032,015,033,015
85 data 037,005,038,000,039,007,040,006
86 data 041,002,042,007,043,004,044,001
87 data 045,002,046,001
90 data 002,128,160,002,162,160,002,162
91 data 160,000,162,128,010,046,040,042
92 data 191,170,042,191,170,010,046,040
93 data 000,166,128,002,166,160,018,166
94 data 160,018,132,161,020,004,001,021
95 data 004,005,005,068,021,005,068,084
96 data 001,068,084,000,084,080,000,005
97 data 064,000,004,000,000,004,000,000
100 printspc(12)"press any key":poke198,0:wait198,1:poke198,0
110 pokev+21,0:print"[147]"spc(12)"returning to menu..."
120 poke646,peek(53281):f$="magic menu"
130 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end